home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.init'u'gr. < prev    next >
Text File  |  2007-03-01  |  293b  |  12 lines
  1. 0010 ╨╥╧├ INIT'U'GRAPH 
  2. 0020   ╒╙┼ GRAPHICS
  3. 0030   BACKGROUND(5)
  4. 0040   BORDER(13)
  5. 0050   PENCOLOR(1)
  6. 0060   GRAPHICSCREEN(0)
  7. 0070   MAXVAL:=20; MAXSCALE:=20
  8. 0080   ─╔═ VALUES(0:MAXVAL,2), SCALE$(0:MAXSCALE,2) ╧╞ 10, LABELS$(0:2) ╧╞ 20
  9. 0090   ─╔═ BLANKS(0:1,2)
  10. 0100 ┼╬─╨╥╧├ INIT'U'GRAPH
  11. 0110 
  12.